home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Text / OzTeX 1.9 / TeX-inputs / Plain / pstext.tex < prev    next >
Encoding:
Text File  |  1995-01-31  |  6.3 KB  |  219 lines  |  [TEXT/MPS ]
  1. % \PStext can be used before switching to a PostScript text font.
  2. % It allows the use of the standard macros for foreign letters and accents.
  3. % \PStext is best used inside a group so that these macro definitions
  4. % automatically revert to the standard definitions at the end of the group.
  5. % If it is undesirable to place \PStext inside a group then \CMtext should
  6. % be called before using a Computer Modern text font.
  7. %
  8. % \PStext assumes you are using the T1-encoded virtual PostScript fonts
  9. % supplied in OzTeX 1.7 and later (see psnames.tex for the font names).
  10.  
  11. \catcode`@=11 % allow @ signs in control sequences
  12.  
  13. \def\@accent@def#1#2#3{\expandafter\def
  14.        \csname @#1@\string#2@#1@\endcsname{#3}}\relax
  15. \def\@accent@use#1#2#3{%
  16.   \expandafter\ifx \csname @#1@\string#3@#1@\endcsname \relax
  17.       {\accent#2 #3}%
  18.     \else  \csname @#1@\string#3@#1@\endcsname\fi}\relax
  19.  
  20. \def\PStext
  21. {\def\j{j\message{(No dotless j; using j instead!)}}%
  22. \chardef\i25
  23. \chardef\ss255
  24. \chardef\aa229
  25. \chardef\AA197
  26. \chardef\AE198
  27. \chardef\l170
  28. \chardef\L138
  29. \chardef\O216
  30. \chardef\OE215
  31. \chardef\SS223
  32. \chardef\_95
  33. \chardef\ae230
  34. \chardef\oe247
  35. \chardef\o248
  36. \chardef\S159
  37. \chardef\pounds191
  38. \chardef\quotesinglbase13
  39. \chardef\quotedblbase18
  40. \chardef\guillemotleft19
  41. \chardef\guillemotright20
  42. \chardef\guilsinglleft14
  43. \chardef\guilsinglright15
  44. % accents
  45. \def\`{\@accent@use{grave}{0}}%
  46. \let\@accii \`\relax
  47. \@accent@def{grave}{a}{^^e0}%
  48. \@accent@def{grave}{e}{^^e8}%
  49. \@accent@def{grave}{\i}{^^ec}%
  50. \@accent@def{grave}{i}{^^ec}%
  51. \@accent@def{grave}{o}{^^f2}%
  52. \@accent@def{grave}{u}{^^f9}%
  53. \@accent@def{grave}{A}{^^c0}%
  54. \@accent@def{grave}{E}{^^c8}%
  55. \@accent@def{grave}{I}{^^cc}%
  56. \@accent@def{grave}{O}{^^d2}%
  57. \@accent@def{grave}{U}{^^d9}%
  58. \relax
  59. \def\'{\@accent@use{acute}{1}}%
  60. \let\@acci \'\relax
  61. \@accent@def{acute}{n}{^^ab}%
  62. \@accent@def{acute}{l}{^^a8}%
  63. \@accent@def{acute}{r}{^^af}%
  64. \@accent@def{acute}{s}{^^b1}%
  65. \@accent@def{acute}{z}{^^b9}%
  66. \@accent@def{acute}{a}{^^e1}%
  67. \@accent@def{acute}{e}{^^e9}%
  68. \@accent@def{acute}{\i}{^^ed}%
  69. \@accent@def{acute}{i}{^^ed}%
  70. \@accent@def{acute}{o}{^^f3}%
  71. \@accent@def{acute}{u}{^^fa}%
  72. \@accent@def{acute}{y}{^^fd}%
  73. \relax
  74. \@accent@def{acute}{N}{^^8b}%
  75. \@accent@def{acute}{L}{^^88}%
  76. \@accent@def{acute}{R}{^^8f}%
  77. \@accent@def{acute}{S}{^^91}%
  78. \@accent@def{acute}{Z}{^^99}%
  79. \@accent@def{acute}{A}{^^c1}%
  80. \@accent@def{acute}{E}{^^c9}%
  81. \@accent@def{acute}{I}{^^cd}%
  82. \@accent@def{acute}{O}{^^d3}%
  83. \@accent@def{acute}{U}{^^da}%
  84. \@accent@def{acute}{Y}{^^dd}%
  85. \@accent@def{acute}{c}{^^a2}%
  86. \@accent@def{acute}{C}{^^82}%
  87. \relax
  88. \def\v{\@accent@use{check}{7}}%
  89. \@accent@def{check}{c}{^^a3}%
  90. \@accent@def{check}{e}{^^a5}%
  91. \@accent@def{check}{n}{^^ac}%
  92. \@accent@def{check}{r}{^^b0}%
  93. \@accent@def{check}{s}{^^b2}%
  94. \@accent@def{check}{z}{^^ba}%
  95. \relax
  96. \@accent@def{check}{C}{^^83}%
  97. \@accent@def{check}{D}{^^84}%
  98. \@accent@def{check}{E}{^^85}%
  99. \@accent@def{check}{N}{^^8c}%
  100. \@accent@def{check}{R}{^^90}%
  101. \@accent@def{check}{S}{^^92}%
  102. \@accent@def{check}{T}{^^94}%
  103. \@accent@def{check}{Z}{^^9a}%
  104. \relax
  105. \def\u{\@accent@use{breve}{8}}%
  106. \@accent@def{breve}{a}{^^a0}%
  107. \@accent@def{breve}{g}{^^a7}%
  108. \@accent@def{breve}{A}{^^80}%
  109. \@accent@def{breve}{G}{^^87}%
  110. \def\=##1{{\accent9 ##1}}
  111. \let\@acciii \=\relax
  112. \def\^{\@accent@use{circflx}{2}}%
  113. \@accent@def{circflx}{a}{^^e2}%
  114. \@accent@def{circflx}{e}{^^ea}%
  115. \@accent@def{circflx}{\i}{^^ee}%
  116. \@accent@def{circflx}{i}{^^ee}%
  117. \@accent@def{circflx}{o}{^^f4}%
  118. \@accent@def{circflx}{u}{^^fb}%
  119. \@accent@def{circflx}{A}{^^c2}%
  120. \@accent@def{circflx}{E}{^^ca}%
  121. \@accent@def{circflx}{I}{^^ce}%
  122. \@accent@def{circflx}{O}{^^d4}%
  123. \@accent@def{circflx}{U}{^^db}%
  124. \relax
  125. \def\.{\@accent@use{dot}{10}}%
  126. \@accent@def{dot}{z}{^^bb}%
  127. \@accent@def{dot}{Z}{^^9b}%
  128. \@accent@def{dot}{I}{^^9d}%
  129. \@accent@def{dot}{i}{i}%
  130. \relax
  131. \def\H{\@accent@use{Hung}{5}}%
  132. \@accent@def{Hung}{o}{^^ae}%
  133. \@accent@def{Hung}{u}{^^b6}%
  134. \@accent@def{Hung}{O}{^^8e}%
  135. \@accent@def{Hung}{U}{^^96}%
  136. \relax
  137. \def\~{\@accent@use{tilde}{3}}%
  138. \@accent@def{tilde}{a}{^^e3}%
  139. \@accent@def{tilde}{n}{^^f1}%
  140. \@accent@def{tilde}{o}{^^f5}%
  141. \@accent@def{tilde}{A}{^^c3}%
  142. \@accent@def{tilde}{N}{^^d1}%
  143. \@accent@def{tilde}{O}{^^d5}%
  144. \relax
  145. \def\"{\@accent@use{Umlaut}{4}}%
  146. \@accent@def{Umlaut}{a}{^^e4}%
  147. \@accent@def{Umlaut}{e}{^^eb}%
  148. \@accent@def{Umlaut}{\i}{^^ef}%
  149. \@accent@def{Umlaut}{i}{^^ef}%
  150. \@accent@def{Umlaut}{o}{^^f6}%
  151. \@accent@def{Umlaut}{u}{^^fc}%
  152. \@accent@def{Umlaut}{A}{^^c4}%
  153. \@accent@def{Umlaut}{E}{^^cb}%
  154. \@accent@def{Umlaut}{I}{^^cf}%
  155. \@accent@def{Umlaut}{O}{^^d6}%
  156. \@accent@def{Umlaut}{U}{^^dc}%
  157. \relax
  158. \def\b##1{\oalign{##1\crcr\hidewidth
  159.     \vbox to.2ex{\hbox{\char9}\vss}\hidewidth}}%
  160. \def\c##1{\expandafter\ifx
  161.     \csname @cedilla@\string##1@cedilla@\endcsname \relax
  162.     \c@dilla##1\else \csname @cedilla@\string##1@cedilla@\endcsname\fi}%
  163. \@accent@def{cedilla}{s}{^^b3}%
  164. \@accent@def{cedilla}{t}{^^b5}%
  165. \@accent@def{cedilla}{c}{^^e7}%
  166. \@accent@def{cedilla}{S}{^^93}%
  167. \@accent@def{cedilla}{T}{^^95}%
  168. \@accent@def{cedilla}{C}{^^c7}%
  169. \relax
  170. \def\c@dilla##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent11 ##1%
  171.   \else{\ooalign{\hidewidth\char11\hidewidth\crcr\unhbox0}}\fi}%
  172. \def\d##1{\oalign{##1\crcr\hidewidth.\hidewidth}}%
  173. }
  174.  
  175. % \CMtext assumes OT1 encoding (as defined by DEK in The TeXbook):
  176.  
  177. \def\CMtext
  178. {\chardef\j=17
  179. \chardef\i16
  180. \chardef\ss25
  181. \chardef\ae26
  182. \chardef\oe27
  183. \chardef\o28
  184. \chardef\AE29
  185. \chardef\OE30
  186. \chardef\O31
  187. \def\aa{\accent23a}%
  188. \def\AA{\leavevmode\setbox0\hbox{h}\dimen0\ht0\advance\dimen0-1ex%
  189. \rlap{\raise.67\dimen0\hbox{\char'27}}A}%
  190. \def\l{\char32l}%
  191. \def\L{\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}%
  192. \def\_{\leavevmode \kern.06em \vbox{\hrule width.3em}}%
  193. \def\S{\mathhexbox278}%
  194. \let\pounds\undefined
  195. \let\guillemotleft\undefined
  196. \let\guillemotright\undefined
  197. \let\guilsinglleft\undefined
  198. \let\guilsinglright\undefined
  199. \let\quotedblbase\undefined
  200. \let\quotesinglbase\undefined
  201. \def\"##1{{\accent127 ##1}}%
  202. \def\'##1{{\accent19 ##1}}%
  203. \def\.##1{{\accent95 ##1}}%
  204. \def\=##1{{\accent22 ##1}}%
  205. \def\^##1{{\accent94 ##1}}%
  206. \def\`##1{{\accent18 ##1}}%
  207. \def\~##1{{\accent126 ##1}}%
  208. \def\H##1{{\accent125 ##1}}%
  209. \def\u##1{{\accent21 ##1}}%
  210. \def\v##1{{\accent20 ##1}}%
  211. \def\b##1{\oalign{##1\crcr\hidewidth\sh@ft{29}%
  212.  \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}
  213. \def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent24 ##1%
  214.  \else{\ooalign{\unhbox0\crcr\hidewidth\char24\hidewidth}}\fi}
  215. \def\d##1{\oalign{##1\crcr\hidewidth\sh@ft{08}.\hidewidth}}
  216. }
  217.  
  218. \catcode`@=12 % at signs are no longer letters
  219.